*  FILE NAME: INVBA.PRG
*  BY: NURJADI PURNAMA
*  DATE: April 17, 1996
*  DESC:
*  CALLED BY:
*  DATA FILES: DRUGS.DBF, DISP.DBF, DRUG_ENT.DBF, DISP_ENT.DBF, INVLOG.DBF
**
**
**
DR1='N:'
F1='DISPOS'
F2='DRUG_ENT'
STORE 0 TO PL3,PL4,PL5,PL6,BNUM,BNUM1,PRICE,pl7,PL8,PL9,PL11,PL11T
STORE .F. TO TEMU

   F3='SUPPLIER'
   F9='PUR_DRUG'
   F10='PUR_DISP'


STORE SPACE(10) TO REFNO
STORE SPACE(60) to REMARK
STORE 0 TO ADJOPT
STORE ' ' TO ADJTYPE, ADJDESC, ADJCODE

** VNYI Add this code 24/11/2003

STORE SPACE(1) TO AorT 
STORE SPACE(4) TO Dest
STORE SPACE(4) TO Ref_vnyi
**Set default value
AorT = "T"
Dest = "HCM "
** End VNYI

DO WHILE PL6<>2 .AND. LASTKEY()<>27
   SET COLOR TO BG/B
   @ 10,1 clear to 10,45
   @11,1 CLEA TO 23,78

** dickson (15/12/98)  -
   
   SET COLOR TO n/bg, w+/n
   @ 11,3 CLEAR TO 16,38
   @ 11,4  TO 16,37 DOUBLE
   @ 12, 5 PROMPT "GOODS RECEIVED FROM SUPPLIERS "
   @ 13, 5 PROMPT "REVERSAL ON GOODS RECEIVED    "
   @ 15, 5 PROMPT "GOODS TRANSFER / ADJUSTMENT   "
   MENU TO ADJOPT

   SET COLOR TO BG+/B,W+/N
   DO CASE
        CASE ADJOPT = 1
             ADJTYPE = " - Goods Received from Suppliers"
             ADJDESC = " Received : "
             ADJCODE = "RCV"

        CASE ADJOPT = 2
             ADJTYPE = " - Reversal on Goods Received"
             ADJDESC = " Reversed : "
             ADJCODE = "REV"

        CASE ADJOPT = 3
             ADJTYPE = " - Goods Transfer In / Out"
             ADJDESC = " Transfer/Adj:"
             ADJCODE = "TRF"

   ENDCASE

   @ 3,3 CLEAR TO 6,70    
   DO BOXT WITH 4,3,"ENTRY IN STORE"+ADJTYPE,'W+','BG',.T.,.T.

   ORDRU=ORDRU+1
   F1='Drugs'
   F11='DrugNM'
   F2='Drug_ENT'
   F7='DISPOS'
   F71='DISPNM'
   F8='DISP_ENT'

** VNYI add this line (12/11/2003)
   F20='MAKEID'
   SELE 20
   USE &DR1&F20
** End VNYI

** Dickson (15/12/98) - new log file for Goods Recv/Trasnsfer/Adj/ Reversal
**
   F9='INVLOG'
   SELE 9
   USE &DR1&F9
   SET EXCLU OFF
**              -- end Dickson

   SELE 2
   SET EXCLU OFF
   USE &DR1&F2
   SELE 1
   SET EXCLU OFF
   USE &DR1&F1 INDEX &DR1&F1,&DR1&F11
   SELE 8
   SET EXCLU OFF
   USE &DR1&F8
   SELE 7
   SET EXCLU OFF
   USE &DR1&F7 INDEX &DR1&F7,&DR1&F71
   IF LASTKEY()=27
      LOOP
   END IF
   CNT=0
   KODE=SPACE(4)
   kunci=space(5)
   do boxe with 11,3,'Enter Initial of Drug/Disposable Name : ','KUNCI','N','BG','W+','N',5,.T.,.T.
   if lastkey()=27
      set colo to bg+/b,w+/n
      loop
   END IF
   DO GETPHAR
   IF CNT=0 .or. lastkey()=27
      set colo to bg+/b,w+/n
      LOOP
   END IF
   SET COLO TO BG+/B,W+/N
   @ 8,1 CLEAR TO 23,78
   SELE 1
   SET EXCLU OFF


   USE &dr1&F1 INDEX &dr1&F1
   SEEK KODE
   IF EOF()
      SELE 7
      SET EXCLU OFF
      USE &dr1&F7 INDEX &dr1&F7
      SEEK KODE
      IF EOF()
         PL3=0
         DO BOX2 WITH 8,3,'NO ITEM WITH THIS CODE NUMBER ... DO YOU WANT TO :','RETRY','CANCEL','GR+','R','W+','N',PL3,.T.,.T.
         IF PL3=2 .OR. LASTKEY()=27
            RETURN
         END IF
         LOOP
      ELSE
         PL11=2
      END IF
   ELSE
      PL11=1
   END IF
   SEL=ALLTRIM(SELL_UNIT)
   BUY=ALLTRIM(BUY_UNIT)
   LBUY=LEN(BUY)
   RAT=BUY_SELL_R
   NRAT=ALLTRIM(TRANS(RAT,'9,999'))
   NBUY=ALLTRIM(TRANS(ST_ACT_BUY,'9,999'))
   NSEL=ALLTRIM(TRANS(ST_ACT_SELL,'9,999'))
   DO INVAL

** Dickson (15/12/98)

     @ 20,3 CLEAR TO 23,78
**   DO BOXT WITH 12,1,  "Total units bought : "+ALLTRIM(TRANS(ST_ACT_BUY,'9999'))+'  ','W+','B',.F.,.F.
**   DO BOXT WITH 12,40, "Existing average cost : "+ALLTRIM(TRANS(ST_AV_PR_S,'999.99'))+' ','W+','B',.F.,.F.
     @ 12,3  SAY "Total Physical Balance : "+ALLTRIM(TRANS(ST_ACT_TOT,'9999'))
     @ 12,41 SAY "Existing average unit cost : "+ ALLTRIM(TRANS(ST_AV_PR_S,'999.99'))

** Dickson 
   SET COLO TO BG+/B,W+/N
*   IF .NOT. ST_REORDER
*      IF PL11=1
*         DO BOXF WITH 13,3,">>> THIS DRUGS ITEM HAS NOT BEEN ORDERED <<<",'GR+','R','GR+*',.T.,.T.
*      ELSE
*         DO BOXF WITH 13,3,">>> THIS DISPOSABLE ITEM HAS NOT BEEN ORDERED <<<",'GR+','R','GR+*',.T.,.T.
*      END IF
*      wait ''
*      loop
*   ELSE
*      BNUM = ST_RE_QANT
*   END IF
*   SNUM=BNUM*BUY_SELL_R

   PL4=0
   DO BOX2 WITH 20,3,'DO YOU WANT TO :','CONFIRM','CANCEL','GR+','R','W+','N',PL4,.T.,.T.

   SET COLOR TO BG/B
   @ 20,3 CLEAR TO 23,78

   DO CASE
   CASE PL4=2
      ORDRU=ORDRU-1
      LOOP
   CASE PL4=1
      TEMU=.F.
      PL11T=0
      IF PL11=1
         SELE 1
      ELSE
         SELE 7
      END IF
      PROS='N'
      LYY=SAVESCREEN(0,0,24,79)
      PL5=0
      DO WHILE pl5=0 .and. lastkey()<>27
         BNUM1=0
         SET COLOR TO BG/B
*         @ 10,1 CLEA TO 23,78
*         DO BOXNE WITH 15,3,"QUANTITY RECEIVED :",'BNUM1','99,999','B+','W+','W+','N','bnum1','0',.T.,.T.
**         DO BOXNI WITH 15,3,"QUANTITY RECEIVED :",'BNUM1','99,999','B+','W+','W+','N','bnum1','0',.T.,.T.
**      dickson (15/12/98)
         SET COLOR TO  BG+/B, W+/N
         @ 14,3 SAY "Quantity "+ADJDESC  
         @ 14,28 GET BNUM1 PICT '99,999'
         READ

**         ' For Reversal Of Goods Received .. set it to -ve Qty
         IF ADJOPT = 2
            IF BNUM1 > 0
               BNUM1 = BNUM1 * -1
            END IF
         END IF 
** end - dickson


         SNUM1=BNUM1*BUY_SELL_R

** Dickson (15/12/98) -- Only need to update the Avg Cost price for
**    Goods Received transaction only. Other txn should not chg the avg cost
**
**
**    to get the original cost price of the item from the drugs/ disposable file.
      PRICE = ST_AV_PR_S

**
**    if it is a Goods Receive or Reversal of Goods Received then get the price  from users key-in
      IF ADJOPT = 1  .OR. ADJOPT = 2
         PRICE=0
         IF AEADECI
*            do boxNE with 11,41,"TOTAL PRICE :     ",'PRICE','99,999.99','B+','W+','W+','N','PRICE','0',.T.,.T.
*            do boxNI with 15,41,"TOTAL PRICE :     ",'PRICE','99,999.99','B+','W+','W+','N','PRICE','0',.T.,.T.
*  dickson (15/12/98)
             @ 14,41 SAY "Total Price : "
             @ 14,55 GET PRICE PICT '99,999.99'
             READ
         ELSE
*            do boxNE with 11,41,"TOTAL PRICE :     ",'PRICE','9,999,999','B+','W+','W+','N','PRICE','0',.T.,.T.
*            do boxNi with 15,41,"TOTAL PRICE :     ",'PRICE','9,999,999','B+','W+','W+','N','PRICE','0',.T.,.T.
*  dickson (15/12/98)
             @ 14,41 SAY "Total Price : "
             @ 14,55 GET PRICE PICT '99,999,999'
             READ
         END IF

**         ' Set the amount to -ve for Reversal of Goods Received 
         IF ADJOPT = 2
            IF PRICE > 0
               PRICE = PRICE * -1
            END IF
         END IF
      END IF

*  dickson (15/12/98)  - add in new field - REMARKS
**             REFNO = SPACE(10)
** VNYI Add these line (13/11/2003)
	IF ADJCODE<>"TRF"
		IF LEN(LTRIM(REFNO))=0
			SELE 20
			DO CASE
			CASE LEFT(KODE,1)="@"
				MInv = DispID 
			CASE LEFT(KODE,1)="#"
				MInv = EquiID
			OTHERWISE
				MInv = DrugID
			ENDCASE
			REFNO = Left(MInv,3)
			MInv=LTRIM(STR(Val(RIGHT(MInv,7))+1))
			REFNO = REFNO + REPLICATE("0",7-Len(MInv)) + MInv
			IF REC_LOCK(0)
				DO CASE
				CASE LEFT(KODE,1)="@"
					REPL DispID WITH REFNO
				CASE LEFT(KODE,1)="#"
					REPL EquiID WITH REFNO
				OTHERWISE
					REPL DrugID WITH REFNO
				ENDCASE
			END IF
			UNLOCK
			IF PL4=1
			      IF PL11=1
				 SELE 1
			      ELSE
				 SELE 7
			      END IF
			END IF
		END IF
	     @ 15,3 SAY "Ref # : "
             @ 15,12 SAY REFNO
	END IF
	IF ADJCODE="TRF"
		@ 15,3 SAY "Adj/Tran:"
		IF LEN(LTRIM(REFNO))=0 
			@ 15,13 GET AorT
			READ
			AorT = UPPER(AorT)
		ELSE
			@ 15,13 SAY AorT
		END IF
		IF AorT="T"
		** Transfer
			@ 15,17 SAY "Destination:"
			IF LEN(LTRIM(REFNO))=0 
				@ 15,30 GET Dest
				READ
				Dest = UPPER(Dest)
			ELSE
				@ 15,30 SAY Dest
			END IF
			DO CASE
			CASE LEFT(KODE,1)="@"
				Ref_vnyi = "ATP"
			CASE LEFT(KODE,1)="#"
				Ref_vnyi = "ATE"
			OTHERWISE
				Ref_vnyi = "ATD"
			ENDCASE

			DO CASE
			CASE LTRIM(Dest)="HCM"
				Ref_vnyi = Ref_vnyi + "A"
			CASE LTRIM(Dest)="HAN"
				Ref_vnyi = Ref_vnyi + "B"
			CASE LTRIM(Dest)="VT"
				Ref_vnyi = Ref_vnyi + "C"
			CASE LTRIM(Dest)="GMS"
				Ref_vnyi = Ref_vnyi + "G"
			CASE LTRIM(Dest)="BP"
				Ref_vnyi = Ref_vnyi + "P"
			CASE LTRIM(Dest)="EXT"
				Ref_vnyi = "DO"
			OTHERWISE
				Dest = "HCM "
				Ref_vnyi = Ref_vnyi + "A"
			ENDCASE
		ELSE
		** Adjust
			AorT = "A"
			Ref_vnyi = "ADJ"
		END IF
		IF LEN(LTRIM(REFNO))=0
			** create ID
			SELE 20
			IF LTRIM(Ref_vnyi)="ADJ"
				MInv = ADJID
				REFNO = Left(MInv,3)
				MInv=LTRIM(STR(Val(RIGHT(MInv,7))+1))
				REFNO = REFNO + REPLICATE("0",7-Len(MInv)) + MInv
			ELSE
				IF LTRIM(Ref_vnyi)="DO"
					MInv = EXTID
					REFNO = Left(MInv,2)
					MInv=LTRIM(STR(Val(RIGHT(MInv,8))+1))
					REFNO = REFNO + REPLICATE("0",8-Len(MInv)) + MInv
				ELSE
					DO CASE
					CASE LTRIM(Ref_vnyi)="ATDC"
						MInv = ATDCID
					CASE LTRIM(Ref_vnyi)="ATDA"
						MInv = ATDAID
					CASE LTRIM(Ref_vnyi)="ATDB"
						MInv = ATDBID
					CASE LTRIM(Ref_vnyi)="ATDG"
						MInv = ATDGID
					CASE LTRIM(Ref_vnyi)="ATDP"
						MInv = ATDPID
					CASE LTRIM(Ref_vnyi)="ATPC"
						MInv = ATPCID
					CASE LTRIM(Ref_vnyi)="ATPA"
						MInv = ATPAID
					CASE LTRIM(Ref_vnyi)="ATPB"
						MInv = ATPBID
					CASE LTRIM(Ref_vnyi)="ATPG"
						MInv = ATPGID
					CASE LTRIM(Ref_vnyi)="ATPP"
						MInv = ATPPID
					CASE LTRIM(Ref_vnyi)="ATEC"
						MInv = ATECID
					CASE LTRIM(Ref_vnyi)="ATEA"
						MInv = ATEAID
					CASE LTRIM(Ref_vnyi)="ATEB"
						MInv = ATEBID
					CASE LTRIM(Ref_vnyi)="ATEG"
						MInv = ATEGID
					CASE LTRIM(Ref_vnyi)="ATEP"
						MInv = ATEPID
					ENDCASE
					REFNO = Left(MInv,4)
					MInv=LTRIM(STR(Val(RIGHT(MInv,6))+1))
					REFNO = REFNO + REPLICATE("0",6-Len(MInv)) + MInv
				END IF
			END IF
			** save refno to database
			IF REC_LOCK(0)
				DO CASE
				CASE LEFT(Ref_vnyi,4)="ATDC"
					REPL ATDCID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATDA"
					REPL ATDAID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATDB"
					REPL ATDBID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATDG"
					REPL ATDGID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATDP"
					REPL ATDPID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATPC"
					REPL ATPCID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATPA"
					REPL ATPAID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATPB"
					REPL ATPBID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATPG"
					REPL ATPGID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATPP"
					REPL ATPPID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATEC"
					REPL ATECID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATEA"
					REPL ATEAID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATEB"
					REPL ATEBID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATEG"
					REPL ATEGID WITH REFNO
				CASE LEFT(Ref_vnyi,4)="ATEP"
					REPL ATEPID WITH REFNO
				CASE LEFT(Ref_vnyi,3)="ADJ"
					REPL ADJID WITH REFNO
				CASE LEFT(Ref_vnyi,2)="DO"
					REPL EXTID WITH REFNO
				ENDCASE
			END IF
			UNLOCK
			IF PL4=1
			      IF PL11=1
				 SELE 1
			      ELSE
				 SELE 7
			      END IF
			END IF
		END IF
		@ 15,40 SAY "Ref # : "
		@ 15,50 SAY REFNO
	END IF
** End VNYI
**             @ 15,12 GET REFNO

**             REMARK  = SPACE(60)
             @ 16,3 SAY "Remarks : "
             @ 16,12 GET REMARK


             READ
  

         SET COLO TO BG+/B,W+/N
         @ 17,2 CLEAR TO 18,78
         do boxt with 17,1,"NEW QUANTITY IN STORE : "+trans(ROUND(ST_ACT_TOT+BNUM1,0),"999,999"),'w+','b',.f.,.f.

**
**   Dickson (15/12/98)  - only need to chg the Avg Cost price for
**      Goods Received txn only, other than that, the avg cost price remain
**
**   if the current quantity is already be -ve, then new AVR Cost Price
**     is equal to the current price fomr the Goods Received Notes (or D.O.)

         IF ADJOPT = 1  .OR. ADJOPT = 2
            IF ST_ACT_TOT < 0
               AVPRS = PRICE / SNUM1
            ELSE
               IF ST_ACT_TOT+SNUM1>0
                  AVPRS=((ST_AV_PR_S*ST_ACT_TOT)+PRICE)/(ST_ACT_TOT+SNUM1)
               ELSE
                  AVPRS=0
               END IF
            END IF
            AVPRB=AVPRS*BUY_SELL_R
         ELSE
            AVPRS =  ST_AV_PR_s
            AVPRB =  ST_AV_PR_B
         END IF

         IF AEADECI
             do boxT with 17,39,"NEW AVERAGE PRICE :     "+TRANS(ROUND(AVPRB,2),"999.99"),'w+','b',.f.,.f.
         ELSE
             do boxT with 17,39,"NEW AVERAGE PRICE :     "+TRANS(ROUND(AVPRB,2),"999.99"),'w+','b',.f.,.f.
         END IF

     
     
         set colo to bg+/b,w+/n
         @ 20,1 clea to 23,78
         DO BOX2 WITH 20,3,'DO YOU WANT TO :','CONFIRM','CANCEL','GR+','R','W+','N',PL5,.T.,.T.
         DO CASE
         CASE pl5=2 .or. lastkey()=27
            IF LASTKEY()=27
               RETURN
            END IF
            PL5=0
         CASE pl5=1
            IF PL11=1
               SELE 1
               IF REC_LOCK(0)
**                  REPL ST_AV_PR_S WITH AVPRS,ST_ACT_BUY WITH ST_ACT_BUY+BNUM1,ST_ACT_TOT WITH ST_ACT_TOT+SNUM1
                  REPL ST_AV_PR_S WITH AVPRS,ST_ACT_TOT WITH ST_ACT_TOT+SNUM1,ST_ACT_BUY WITH ST_ACT_TOT  
                  REPL ST_ACT_SEL WITH ST_ACT_TOT-(ST_ACT_BUY*BUY_SELL_R),DT_L_PURC WITH DATE(),ST_AV_PR_B WITH AVPRB

**                  REPL U_PR_L_PUR WITH price/bnum1,QANT_L_PUR WITH BNUM1,ST_RE_QANT WITH ST_RE_QANT-BNUM1
**       Amended by dickson - if Not Goods Received/ Reversal of Goods Received then don't update the Last Purchase Price
                  REPL QANT_L_PUR WITH BNUM1,ST_RE_QANT WITH ST_RE_QANT-BNUM1

                  IF ADJOPT = 1  .OR. ADJOPT = 2
                     REPL U_PR_L_PUR WITH price/bnum1
                  END IF
**       End amend dickson

               END IF
               UNLOCK
            ELSE
               SELE 7
               IF REC_LOCK(0)
**                  REPL ST_AV_PR_S WITH AVPRS,ST_ACT_BUY WITH ST_ACT_BUY+BNUM1,ST_ACT_TOT WITH ST_ACT_TOT+SNUM1
                  REPL ST_AV_PR_S WITH AVPRS,ST_ACT_TOT WITH ST_ACT_TOT+SNUM1,ST_ACT_BUY WITH ST_ACT_TOT  
                  REPL ST_ACT_SEL WITH ST_ACT_TOT-(ST_ACT_BUY*BUY_SELL_R),DT_L_PURC WITH DATE(),ST_AV_PR_B WITH AVPRB

**                  REPL U_PR_L_PUR WITH price/bnum1,QANT_L_PUR WITH BNUM1,ST_RE_QANT WITH ST_RE_QANT-BNUM1
**       Amended by dickson - if Not Goods Received/ Reversal of Goods Received then don't update the Last Purchase Price
                  REPL QANT_L_PUR WITH BNUM1,ST_RE_QANT WITH ST_RE_QANT-BNUM1

                  IF ADJOPT = 1  .OR. ADJOPT = 2
                     REPL U_PR_L_PUR WITH price/bnum1
                  END IF
**       End amend dickson

               END IF
               UNLOCK
            END IF
         ENDCASE
      ENDDO
      IF PL11=1
         SELE 2
         IF FIL_LOCK(0)
            APPEND BLANK
         END IF
         IF REC_LOCK(0)
            REPL ENTRY_DATE WITH DATE()
**
**    28-10-2000 Dickson - ENTRY_ORDR is a 2 digit '99' numeric number
*                        - reset it to 1 if > 99 to avoid Data width error b4 write to the file
            IF ORDRU > 99
               ORDRU = 1
            END IF
**  end 28-10-2000
            REPL ENTRY_ORDR WITH ORDRU
            REPL DRUG_CODE WITH A->DRUG_CODE
            REPL DRUG_NAME WITH A->DRUG_NAME,DRUG_TYPE WITH A->DRUG_TYPE,DRUG_QANT WITH A->DRUG_QANT,DRUG_UNIT WITH A->DRUG_UNIT
            REPL BUY_UNIT  WITH A->BUY_UNIT,ENT_QANT  WITH BNUM1,ENT_PRICE WITH AVPRB,ENT_AMOUNT WITH PRICE,ENTR_PRINT WITH .F.
         END IF
         UNLOCK
      ELSE
         SELE 8
         IF FIL_LOCK(0)
            APPEND BLANK
         END IF
         IF REC_LOCK(0)
**
**    28-10-2000 Dickson - ENTRY_ORDR is a 2 digit '99' numeric number
*                        - reset it to 1 if > 99 to avoid Data width error b4 write to the file
            IF ORDRU > 99
               ORDRU = 1
            END IF
**  end 28-10-2000

            REPL ENTRY_DATE WITH DATE(),ENTRY_ORDR WITH ORDRU,DISP_CODE WITH G->DISP_CODE
            REPL DISP_NAME WITH G->DISP_NAME,DISP_TYPE WITH G->DISP_TYPE,DISP_QANT WITH G->DISP_QANT,DISP_UNIT WITH G->DISP_UNIT
            REPL BUY_UNIT  WITH G->BUY_UNIT,ENT_QANT  WITH BNUM1,ENT_PRICE WITH AVPRB,ENT_AMOUNT WITH PRICE,ENTR_PRINT WITH .F.
         END IF
         UNLOCK
      END IF

** Dickson (15/12/98) -- Add a txn log record for the auditi trial / with remark field
      SELE 9
      IF FIL_LOCK(0)
         APPEND BLANK
      END IF
      IF REC_LOCK(0)
         REPL INV_DATE   WITH DATE()
         REPL INV_CODE   WITH KODE
         REPL INV_TYPE   WITH ADJCODE 
         REPL INV_QANT   WITH BNUM1
         REPL INV_PRICE  WITH PRICE
         REPL INV_REFNO  WITH REFNO
         REPL INV_USER   WITH  ' '
         REPL INV_REMARK WITH  REMARK

      END IF
      UNLOCK
      SELE 1
      DO BOX2 WITH 20,3,'DO YOU WANT TO RECORD ANOTHER ENTRY :','YES','NO','GR+','R','W+','N',PL6,.T.,.T.
   ENDCASE
ENDDO
set color to bg/b
@ 10,1 clea to 23,78
RETURN

*Formatted by: Herman T Ver. 7.1  on April 17, 1996.
